﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE
Public Class PestanaInformeMensualMonitoreoBC

    Public Function Informe_Grilla_Fisico(ByVal strPOA As String, ByVal strPeriodo As String, ByVal strVersionPoaInforme As String) As DataTable
        Dim objIFDA As PestanaInformeMensualMonitoreoDA
        Dim objDt As DataTable

        Try
            objIFDA = New PestanaInformeMensualMonitoreoDA
            objDt = objIFDA.Informe_Grilla_Fisico(strPOA, strPeriodo, strVersionPoaInforme)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function Informe_Grilla_Financiero(ByVal strPOA As String, ByVal strPeriodo As String, ByVal strVersionPoaInforme As String) As DataTable
        Dim objIFDA As PestanaInformeMensualMonitoreoDA
        Dim objDt As DataTable

        Try
            objIFDA = New PestanaInformeMensualMonitoreoDA
            objDt = objIFDA.Informe_Grilla_Financiero(strPOA, strPeriodo, strVersionPoaInforme)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function



    Public Function CargarGrillaComentario() As DataTable
        Dim objLGC As PestanaInformeMensualMonitoreoDA
        Dim objDt As DataTable
        Try
            objLGC = New PestanaInformeMensualMonitoreoDA
            objDt = objLGC.CargarGrillaComentario()
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Function CargarGrillaComentario(ByVal strcodim As String, ByVal strtipocom As String) As DataTable
        Dim objLGC As PestanaInformeMensualMonitoreoDA
        Dim objDt As DataTable
        Try
            objLGC = New PestanaInformeMensualMonitoreoDA
            objDt = objLGC.CargarGrillaComentario(strcodim, strtipocom)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Function CargarGrillaComentarioFn(ByVal strcodim As String, ByVal strtipocom As String) As DataTable
        Dim objLGC As PestanaInformeMensualMonitoreoDA
        Dim objDt As DataTable
        Try
            objLGC = New PestanaInformeMensualMonitoreoDA
            objDt = objLGC.CargarGrillaComentario(strcodim, strtipocom)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Sub Insertarinforme(ByVal IDIM As String, ByVal POAIM As String, ByVal PDOIM As String, ByVal PERSO As String, ByVal EST As String, ByVal OBS As String, ByVal strVersionPoaVigente As String)
        Dim objIFDA As PestanaInformeMensualMonitoreoDA

        Try
            objIFDA = New PestanaInformeMensualMonitoreoDA
            objIFDA.Insertarinforme(IDIM, POAIM, PDOIM, PERSO, EST, OBS, strVersionPoaVigente)

        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub Insertarcomentario(ByVal IDCM As String, ByVal TIPOCM As String, ByVal DESCR As String, ByVal IDIM As String)
        Dim objIUDA As PestanaInformeMensualMonitoreoDA

        Try
            objIUDA = New PestanaInformeMensualMonitoreoDA
            objIUDA.Insertarcomentario(IDCM, TIPOCM, DESCR, IDIM)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub Editacomentario(ByVal IDCM As String, ByVal IDIM As String, ByVal TIPOCM As String, ByVal DESCR As String)
        Dim objECDA As PestanaInformeMensualMonitoreoDA
        Try
            objECDA = New PestanaInformeMensualMonitoreoDA
            objECDA.Editacomentario(IDCM, IDIM, TIPOCM, DESCR)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub ListaMedidaFca(ByVal IDMM As String)
        Dim ObjLMFCDA As PestanaInformeMensualMonitoreoDA
        Try
            ObjLMFCDA = New PestanaInformeMensualMonitoreoDA
            ObjLMFCDA.ListaMedidaFca(IDMM)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub ListaMedidaFin(ByVal IDMM As String)
        Dim ObjLMFIDA As PestanaInformeMensualMonitoreoDA
        Try
            ObjLMFIDA = New PestanaInformeMensualMonitoreoDA
            ObjLMFIDA.ListaMedidaFin(IDMM)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub ListaFuenteFca(ByVal IDMM As String)
        Dim ObjLFFCDA As PestanaInformeMensualMonitoreoDA
        Try
            ObjLFFCDA = New PestanaInformeMensualMonitoreoDA
            ObjLFFCDA.ListaFuenteFca(IDMM)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub ListaFuenteFin(ByVal IDMM As String)
        Dim ObjLFFIDA As PestanaInformeMensualMonitoreoDA
        Try
            ObjLFFIDA = New PestanaInformeMensualMonitoreoDA
            ObjLFFIDA.ListaFuenteFin(IDMM)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Sub eliminarComentario(ByVal IDCM As String)
        Dim objECDA As PestanaInformeMensualMonitoreoDA
        Try
            objECDA = New PestanaInformeMensualMonitoreoDA
            objECDA.eliminarComentario(IDCM)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Public Sub EditarInforme(ByVal IDIM As String, ByVal OBS As String)
        Dim objECDA As PestanaInformeMensualMonitoreoDA
        Try
            objECDA = New PestanaInformeMensualMonitoreoDA
            objECDA.EditarInforme(IDIM, OBS)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    Public Function CargarObservaciones(ByVal strID As String) As DataTable
        Dim objLGC As PestanaInformeMensualMonitoreoDA
        Dim objDt As DataTable
        Try
            objLGC = New PestanaInformeMensualMonitoreoDA
            objDt = objLGC.CargarObservaciones(strID)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class
